home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / abitur / txt / randomnoten.mod < prev    next >
Text File  |  1993-11-04  |  717b  |  31 lines
  1. IMPLEMENTATION MODULE RandomNoten;
  2.  
  3. FROM Intuition IMPORT CurrentTime;
  4. FROM RandomNumber IMPORT PutSeed, RND;
  5. FROM SYSTEM IMPORT ADR, CAST;
  6.  
  7. VAR Secs, Micros: LONGCARD;
  8.     Seed: LONGINT;
  9.  
  10.  
  11. PROCEDURE RNDNote(): REAL;
  12.  (* Liefert eine Note von 1.0 1.5 2.0 ... 5.5  6.0  *)
  13. VAR Zahl: INTEGER;
  14. BEGIN
  15.    Zahl := RND(11);
  16.    RETURN FLOAT(Zahl) / 2.0 + 1.0
  17. END RNDNote;
  18.  
  19.  
  20. VAR Ps: INTEGER; (* Somit kommt bei schnellem Hintereinander
  21.                   * ausführen nicht immer die selbe erste Zahl.
  22.                   *)
  23. BEGIN (* Initialisiere Random Zahlen *)
  24.    CurrentTime(ADR(Secs), ADR(Micros));
  25.    Seed := CAST(LONGINT, Secs);
  26.    IF Seed < 0 THEN Seed := -Seed END;
  27.    PutSeed(Seed);
  28.    Ps := RND(11);
  29. END RandomNoten.
  30.  
  31.